home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / LIST SLOW PDL 0.int < prev    next >
Text File  |  2012-02-16  |  518b  |  16 lines
  1. 10 REM  PDL-LIST  MARCH 1980  BOB KOVACS
  2. 20 REM  PADDLE 0 CONTROLS SPEED
  3. 30 REM  OF CHARACTERS TO SCREEN
  4. 40 DIM HEX$(255)
  5. 50 REM  WRITE MACHINECODE INTO
  6. 60 REM  PAGE 3 OF RAM
  7. 70 HEX$="300:08 48 8A 48 98 48 A2 00 20 1E FB C8 D0 08 A9 FF 20 A8 FC 18 90 F0 98 20 A8 FC 68 A8 68 AA 68 28 4C F0 FD"
  8. 80 GOSUB 1000
  9. 90 REM  SET COUT HOOK-3.2 DOS
  10. 100 HEX$="36:00 03 N 3EAG"
  11. 110 GOSUB 1000
  12. 120 END 
  13. 1000 HEX$( LEN(HEX$)+1)=" N E88AG"
  14. 1010 FOR I=1 TO  LEN(HEX$): POKE 511+I, ASC(HEX$(I)):NEXT I: POKE 72,0:CALL -144
  15. 1020 RETURN 
  16.